Monster Media 1994 #2/Monster Media No. 2 (Monster Media)(1994).ISO/finance/cs4_b.zip/GROUP4.STY

Text File | 1994-05-15 | 10KB | 322 lines

@MA11 @MD02 @MC+ @MS-
> @VS99 := "        -0-"
@IF @RD = "SCREEN" THEN
@MH3
@MT+ @HN------------------------------------------------------------           @MT- 
@HC------             @HS------   through   @HE------                    @HA----- 
────────────────────────────────────────────────────────────────────────────── 
@EL
@PA ;
@IF {@RB} = {1} THEN
@PD ;
@EI
@IF @RA  "CURRENT" THEN
@MI{@RI}          ;
@EI
@MI{@RI} @HC------  @MT+ @HN------------------------------------------------------------ @MT- 
@IF @RA  "CURRENT" THEN
@MI{@RI}          ;
@EI
@MI{@RI} @HA-----  @MT+ @HS------   through   @HE------                                 @MT- 
@IF @RA  "CURRENT" THEN
@MI{@RI} ---------;
@EI
@IF {@RB} = {1} THEN
@MI{@RI} ----------------------------------------------------------------------------------------------------
@EL
@MI{@RI} -------------------------------------------------------------------------------
@EI
@EI
@IF @RD = "SCREEN" THEN
 
                    Transactions listed on the bank statement
                    ─────────────────────────────────────────
@EL
 
@MI{@RI}                  Transactions listed on the bank statement
@MI{@RI}                  -----------------------------------------
> @VN50 := {5}
@EI

@LA12345
> @VS1 := @TT           ; Assign transaction type
@IF @TS = "*" THEN
> @VN2 := {@VN2+@TA}
> @VN3 := {@VN3+1}
> @VN50 := {@VN50+1}
@IF @TT = "D" THEN
> @VN11 := {@VN11+@TA}  ; Accumulate total deposits
> @VN21 := {@VN21+1}    ; Accumulate number of deposits
@EI
@IF @TT = "I" THEN
> @VN12 := {@VN12+@TA}  ; Accumulate total interest earned
> @VN22 := {@VN22+1}    ; Accumulate number of interest earned
@EI
@IF @TT = "B" THEN
> @VN13 := {@VN13+@TA}  ; Accumulate total cash credits
> @VN23 := {@VN23+1}    ; Accumulate number of cash credits
@EI
@IF @TT = "C" THEN
> @VN15 := {@VN15+@TA}  ; Accumulate total checks
> @VN25 := {@VN25+1}    ; Accumulate number of checks
@EI
@IF @TT = "W" THEN
> @VN16 := {@VN16+@TA}  ; Accumulate total withdrawals
> @VN26 := {@VN26+1}    ; Accumulate number of withdrawals
@EI
@IF @TT = "H" THEN
> @VN17 := {@VN17+@TA}  ; Accumulate total bank charges
> @VN27 := {@VN27+1}    ; Accumulate number of bank charges
@EI
@IF @TT = "A" THEN
> @VN18 := {@VN18+@TA}  ; Accumulate total cash debits
> @VN28 := {@VN28+1}    ; Accumulate number of cash debits
@EI
@IF @RA = "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TT--  @TD------  @TP-------------------------  @TM-----------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TT--  @TD------  @TP-------------------------  @TM------------------  @TS @TA--------
@EI
@EI
@EI
@IF @RA  "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TO-----  @TT--  @TD------  @TP--------------------  @TM-------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------  @TM-----------  @TS @TA--------
@EI
@EI
@EI

@EI
@A+1
@IF @VS1  @TT      ; Check transaction change
@IF {@VN3} > {0} THEN
> @VN80:={@VN2/@VN3}
@IF @VS1 = "D" THEN
> @VS1 := "Deposits"                     "
@EL @IF @VS1 = "I" THEN
> @VS1 := "Interest earned               "
@EL @IF @VS1 = "C" THEN
> @VS1 := "Checks                        "
@EL @IF @VS1 = "W" THEN
> @VS1 := "Withdrawals                   "
@EL @IF @VS1 = "H" THEN
> @VS1 := "Bank charges                  "
@EI
@IF @RD = "SCREEN"
TOTAL @VS1--------------------------  @VN2-------  @MD00 @MA4 COUNT:@VN3   @MD02 @MA11 AVG:@VN80------ 
 
@EL
> @VN50 := {@VN50+2}
@IF @RA  "CURRENT" THEN
@MI{@RI}          ;
@EI
@IF {@RB} = {1} THEN
@MI{@RI} TOTAL @VS1--------------------------  $@VN2-------             @MD00 @MA4 COUNT:@VN3       @MD02 @MA11 AVERAGE: $@VN80------ 
@EL
@MI{@RI} @PG TOTAL @VS1--------------------------   $@VN2------- @MD00 @MA4 COUNT:@VN3 @MD02 @MA11 AVG: $@VN80------ @PH 
@EI
 
@EI
> @VN2 := {0}
> @VN3 := {0}
@EI
@EI
@IF @RD  "SCREEN" THEN
@IF {@VN50} > {@RF} THEN
@PB ;
@UM"Ready to print next page."
> @VN50 := {0}
@EI
@EI
@EA
 
@IF @RD  "SCREEN" THEN
@IF {@VN50} > {25} THEN
@PB ;
@UM"Ready to print next page."
@EI
@EI

@A*
> @VN50 := {0}
> @VN11 := {0}
> @VN21 := {0}
> @VN12 := {0}
> @VN22 := {0}
> @VN13 := {0}
> @VN23 := {0}
> @VN14 := {0}
> @VN24 := {0}
> @VN15 := {0}
> @VN25 := {0}
> @VN16 := {0}
> @VN26 := {0}
> @VN17 := {0}
> @VN27 := {0}
> @VN18 := {0}
> @VN28 := {0}
> @VN19 := {0}
> @VN29 := {0}
@IF @RD = "SCREEN" THEN
                            Outstanding transactions
                            ────────────────────────
@EL
 
@MI{@RI}                         Outstanding transactions
@MI{@RI}                         ------------------------
@EI

@LA12345
> @VS1 := @TT           ; Assign transaction type
@IF @TS = "N" THEN
> @VN2 := {@VN2+@TA}
> @VN3 := {@VN3+1}
> @VN50 := {@VN50+1}
@IF @TT = "D" THEN
> @VN11 := {@VN11+@TA}  ; Accumulate total deposits
> @VN21 := {@VN21+1}    ; Accumulate number of deposits
@EI
@IF @TT = "C" THEN
> @VN15 := {@VN15+@TA}  ; Accumulate total checks
> @VN25 := {@VN25+1}    ; Accumulate number of checks
@EI
@IF @TT = "W" THEN
> @VN16 := {@VN16+@TA}  ; Accumulate total withdrawals
> @VN26 := {@VN26+1}    ; Accumulate number of withdrawals
@EI
@IF @RA = "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TT--  @TD------  @TP-------------------------  @TM-----------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TT--  @TD------  @TP-------------------------  @TM------------------  @TS @TA--------
@EI
@EI
@EI
@IF @RA  "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TO-----  @TT--  @TD------  @TP--------------------  @TM-------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------  @TM-----------  @TS @TA--------
@EI
@EI
@EI

@EI
@A+1
@IF @VS1  @TT      ; Check transaction change
@IF {@VN3} > {0} THEN
> @VN80:={@VN2/@VN3}
@IF @VS1 = "D" THEN
> @VS1 := "Deposits"                     "
@EL @IF @VS1 = "I" THEN
> @VS1 := "Interest earned               "
@EL @IF @VS1 = "C" THEN
> @VS1 := "Checks                        "
@EL @IF @VS1 = "W" THEN
> @VS1 := "Withdrawals                   "
@EL @IF @VS1 = "H" THEN
> @VS1 := "Bank charges                  "
@EI
@IF @RD = "SCREEN"
TOTAL @VS1--------------------------  @VN2-------  @MD00 @MA4 COUNT:@VN3   @MD02 @MA11 AVG:@VN80------ 
 
@EL
> @VN50 := {@VN50+2}
@IF @RA  "CURRENT" THEN
@MI{@RI}          ;
@EI
@IF {@RB} = {1} THEN
@MI{@RI} TOTAL @VS1--------------------------  $@VN2-------             @MD00 @MA4 COUNT:@VN3       @MD02 @MA11 AVERAGE: $@VN80------ 
@EL
@MI{@RI} @PG TOTAL @VS1--------------------------   $@VN2------- @MD00 @MA4 COUNT:@VN3 @MD02 @MA11 AVG: $@VN80------ @PH 
@EI
 
@EI
> @VN2 := {0}
> @VN3 := {0}
@EI
@EI
@IF @RD  "SCREEN" THEN
@IF {@VN50} > {@RF} THEN
@PB ;
@UM"Ready to print next page."
> @VN50 := {0}
@EI
@EI
@EA



@IF @RD = "SCREEN" THEN
                            ACCOUNT RECONCILIATION 
───────────────────────────────────────┬────────────────────────────────────── 
Check register balance...$@HR--------   │  Ending bank balance...$@HB-------- 
───────────────────────────────────────┼────────────────────────────────────── 
Outstanding checks.......$@VN15------   │  Outstanding deposits..$@VN11------ 
───────────────────────────────────────┼────────────────────────────────────── 
Outstanding withdrawals..$@VN16------   │
───────────────────────────────────────┼────────────────────────────────────── 
                        ╔════════════╗ │                       ╔════════════╗
> @VN80 := {@HR-@VN15-@VN16}
TOTALS..................║$@VN80------ ║
> @VN80 := {@HB+@VN11}
 │ TOTALS................║$@VN80------ ║
                        ╚════════════╝ │                       ╚════════════╝
 
> @VN80 := { (@HR-@VN15-@VN16) - (@HB+@VN11) }
@IF {@VN80} = {0} THEN
                           *** ACCOUNT BALANCED *** 
@EL @IF {@VN80} > {0} THEN
                Check register balance is LOWER by....$@VN80------ 
@EL @IF {@VN80} < {0} THEN
               Check register balance is HIGHER by....$@VN80------ 
@EI
@EL
@IF {@RF-@VN50} < {10} THEN
@PB ;
@UM"Ready to print next page."
@EI
@IF {@RB} = {1} THEN
> @VN55 := {10}
@EL
> @VN55 := {0}
@EI
@MI{@RI+@VN55}                             ACCOUNT RECONCILIATION 
@MI{@RI+@VN55} ------------------------------------------------------------------------------ 
@MI{@RI+@VN55} Check register balance...$@HR--------   |  Ending bank balance....$@HB-------- 
@MI{@RI+@VN55} ---------------------------------------+-------------------------------------- 
@MI{@RI+@VN55} Outstanding checks.......$@VN15------   |  Outstanding deposits...$@VN11------ 
@MI{@RI+@VN55} ---------------------------------------+-------------------------------------- 
@MI{@RI+@VN55} Outstanding withdrawals..$@VN16------   |
@MI{@RI+@VN55} ------------------------------------------------------------------------------ 
> @VN80 := {@HR-@VN15-@VN16}
@MI{@RI+@VN55} TOTALS...................$@VN80------
> @VN80 := {@HB+@VN11}
     TOTALS.................$@VN80------ 
 
> @VN80 := { (@HR-@VN15-@VN16) - (@HB+@VN11) }
@IF {@VN80} = {0} THEN
@MI{@RI+@VN55}                            *** ACCOUNT BALANCED *** 
@EL @IF {@VN80} > {0} THEN
@MI{@RI+@VN55}                Check register balance is LOWER by....$@VN80------ 
@EL @IF {@VN80} < {0} THEN
@MI{@RI+@VN55}               Check register balance is HIGHER by....$@VN80------ 
@EI
@EI